10 GOSUB6000:M=1
11 POKE211,13:POKE214,6:SYS58640:PRINT"[153]--REDAXINFOS--":M=1
12 POKE211,13:POKE214,8:SYS58640:PRINT"[153]-----NEWS-----"
13 POKE211,13:POKE214,10:SYS58640:PRINT"[153]---ONLY 4 U---"
14 POKE211,13:POKE214,12:SYS58640:PRINT"[153]-----DISK-----"
15 POKE211,13:POKE214,14:SYS58640:PRINT"[153]--TALK TO ME--"
16 POKE211,13:POKE214,16:SYS58640:PRINT"[153]----ADDIES----"
17 POKE211,13:POKE214,18:SYS58640:PRINT"[153]              "
20 GETA$:IFA$=""ANDM<>6THENGOSUB5030:M=M+1:GOTO30
21 IFA$=""ANDM<>1THENGOSUB5030:M=M-1:GOTO30
22 IFA$=CHR$(13)THEN100
30 GOSUB5000:GOTO20
100 IF M=1THENGOSUB5030:GOTO6100
101 IFM=2THENGOSUB5030:GOTO2000
102 IFM=3THENGOSUB5030:GOTO3000
103 IFM=4THENU$="D*":GOTO7000
104 IFM=5THENGOSUB5030:GOTO4000
105 IFM=6THENU$="A*":GOTO7000
2000 POKE211,13:POKE214,6:SYS58640:PRINT"[153]----MEDIEN----"
2001 POKE211,13:POKE214,8:SYS58640:PRINT"[153]---NEWCOMER---":M=1
2002 POKE211,13:POKE214,10:SYS58640:PRINT"[153]-BERLIN-PARTY-"
2003 POKE211,13:POKE214,12:SYS58640:PRINT"[153]----P.O.L.----"
2004 POKE211,13:POKE214,14:SYS58640:PRINT"[153]---..BACK..---"
2005 POKE211,13:POKE214,16:SYS58640:PRINT"[153]              "
2006 GETA$:IFA$=""ANDM<>5THENGOSUB5030:M=M+1:GOTO2005
2007 IFA$=""ANDM<>1THENGOSUB5030:M=M-1:GOTO2005
2008 IFA$=CHR$(13)THEN2100
2009 GOSUB5000:GOTO2006
2100 IFM=1THENU$="N1*":GOTO7000
2101 IFM=2THENU$="N2*":GOTO7000
2102 IFM=3THENU$="N3*":GOTO7000
2103 IFM=4THENU$="N4*":GOTO7000
2104 REM IFM=5THENU$="****************":GOTO7000
2105 IFM=5THENGOSUB5030:GOTO11
3000 POKE211,13:POKE214,6:SYS58640:PRINT"[153]--BASIC KURS--"
3001 POKE211,13:POKE214,8:SYS58640:PRINT"[153]---COOKBOOK---":M=1
3002 POKE211,13:POKE214,10:SYS58640:PRINT"[153]-MR INTERVIEW-"
3003 POKE211,13:POKE214,12:SYS58640:PRINT"[153]-STORY CORNER-"
3004 POKE211,13:POKE214,14:SYS58640:PRINT"[153]---..BACK..---"
3005 POKE211,13:POKE214,16:SYS58640:PRINT"[153]              "
3006 GETA$:IFA$=""ANDM<>5THENGOSUB5030:M=M+1:GOTO3006
3007 IFA$=""ANDM<>1THENGOSUB5030:M=M-1:GOTO3006
3008 IFA$=CHR$(13)THEN3100
3009 GOSUB5000:GOTO3006
3100 IFM=1THENU$="U1*":GOTO7000
3101 IFM=2THENU$="U2*":GOTO7000
3102 IFM=3THENU$="U3*":GOTO7000
3103 IFM=4THENU$="U4*":GOTO7000
3104 IFM=5THENGOSUB5030:GOTO11
4000 POKE211,13:POKE214,6:SYS58640:PRINT"[153]--SMALL TALK--"
4001 POKE211,13:POKE214,8:SYS58640:PRINT"[153]---..BACK..---":M=1
4002 POKE211,13:POKE214,10:SYS58640:PRINT"[153]              "
4003 POKE211,13:POKE214,12:SYS58640:PRINT"[153]              "
4004 POKE211,13:POKE214,14:SYS58640:PRINT"[153]              "
4005 POKE211,13:POKE214,16:SYS58640:PRINT"[153]              "
4006 GETA$:IFA$=""ANDM<>2THENGOSUB5030:M=M+1:GOTO4006
4007 IFA$=""ANDM<>1THENGOSUB5030:M=M-1:GOTO4006
4008 IFA$=CHR$(13)THEN4100
4009 GOSUB5000:GOTO4006
4100 IFM=1THENU$="T1*":GOTO7000
4101 IFM=2THENGOSUB5030:GOTO11
4102 IFM=3THENU$="T3*":GOTO7000
4103 IFM=4THENU$="T4*":GOTO7000
4104 IFM=5THENGOSUB5030:GOTO11
5000 REM
5001 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5002 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
5003 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
5004 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
5005 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
5006 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
5007 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
5008 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
5009 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
5010 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
5011 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
5012 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
5013 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
5014 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5015 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
5016 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
5017 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
5018 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
5019 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
5020 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
5021 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
5022 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
5023 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
5024 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
5025 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5026 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175]":RETURN
5030 POKE211,13:POKE214,(3+2*M):SYS58640:PRINT"              "
5031 POKE211,13:POKE214,(5+2*M):SYS58640:PRINT"              ":RETURN
5099 RETURN
5100 REM
5101 POKE53280,2:::::::::::::::::::::::::::POKE53280,0:GOTO 10
6000 POKE53281,0:POKE53280,0:POKE53265,PEEK(53265)AND239
6001 PRINT"[147][176][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][174]";
6002 PRINT"b       b[151]cc>  [151]P[152]UL[155]P IS[155]SU[152]E[151] 2  [151]<ccb       b";
6003 PRINT"b[154] [169]  [146][154]   [171]cccccccccccccccccccccc[179][154]      [146][154] b";
6004 PRINT"b  [146]  [146]   b                      b    [146]  [146] b";
6005 PRINT"b[154]  [146][154]  [146][154]   b[154]                      b[154]    [146][154]  [146][154] b";
6006 PRINT"b      [146] b                      b     [146][169] b";
6007 PRINT"b[154]       b          [154]            b[154]       b";
6008 PRINT"b      [146] b                      b [169]    [146] b";
6009 PRINT"b[154]      [146][154] b[154]                      b[154]  [146][154]     b";
6010 PRINT"b      [146] b                      b  [146]     b";
6011 PRINT"b       b  [154]                    b[154]     [146][154] b";
6012 PRINT"b     [146] b                      b       b";
6013 PRINT"b[154]     [160][146][154] b[154]                      b[154]      [146][154] b";
6014 PRINT"b      [146] b                      b  [146]     b";
6015 PRINT"b     [146][169][154] b[154]                      b[154]  [146][154]     b";
6016 PRINT"b       b                      b       b";
6017 PRINT"b[154] [169]  [146][154]   b[154]                      b[154]      [146][154] b";
6018 PRINT"b  [146]  [146]   b                      b    [146]  [146] b";
6019 PRINT"b[154]  [146][154]  [146][154]   b[154]                      b[154]    [146][154]  [146][154] b";
6020 PRINT"b      [146] b                      b     [146][169] b";
6021 PRINT"b[154]       b[154]                      b[154]       b";
6022 PRINT"[173][178]cccccc[177]cccccccccccccccccccccc[177]cccccc[178][189]";
6023 PRINT" [194][151]>[151]DIE [152]PULPR[155]EDAX [155]WUENSC[155]HT VIE[152]L SPA[151]SS!<[194] ";
6024 PRINT" [173]cccccccccccccccccccccccccccccccccccc[189] ";
6025 POKE53265,PEEK(53265)OR16:RETURN
6100 GOSUB6200:PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
6101 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
6102 PRINT"b [158]> INFORMATIONEN ZUR PULP-REDAKTION [158]< b";
6103 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
6104 PRINT"b                                      b";
6105 PRINT"b[156]MITGLIEDER:                           b";
6106 PRINT"b[156]eeeeeeeeeee                           b";
6107 PRINT"b[154]LOST BRAIN, DIABLO, PUNICA, FUCHS     b";
6108 PRINT"b                                      b";
6109 PRINT"[194][156]ALL MAG-CODINGS:                      [194]";
6110 PRINT"b[156]eeeeeeeeeeeeeeee                      b";
6111 PRINT"b[154]LOST BRAIN                            b";
6112 PRINT"b[154]                                      b";
6113 PRINT"b[156]TEXTE:                                b";
6114 PRINT"b[156]eeeeee                                b";
6115 PRINT"b[154]GESAMTE CREW (S.O.), LESER (!!!)      b";
6116 PRINT"b                                      b";
6117 PRINT"b[156]                                      b";
6118 PRINT"b[156]                                      b";
6119 PRINT"b[156]       [154]                               b";
6120 PRINT"[171]cccccccccccccccccccccccccccccccccccccc[179]";
6121 PRINT"b[158] DIESES DISKMAG IST UNVERKAEUFLICH !! b";
6122 PRINT"[171]cccccccccccccccccccccccccccccccccccccc[179]";
6123 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";
6124 POKE53265,PEEK(53265)OR16
6125 GETA$:IFA$<>CHR$(13)THEN6125
6126 GOTO10
6200 POKE53265,PEEK(53265)AND239:RETURN
7000 POKE828,0:PRINTCHR$(147)CHR$(17):PRINT"[144]LOAD"CHR$(34);U$;CHR$(34)",8"
7001 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN"
7002 POKE631,13:POKE632,13:POKE198,2
7003 PRINTCHR$(19);:END